home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 2003 #3 / K-CD-3-2003.ISO / WinXP Service Pack 1 / xpsp1_sv_x86.exe / pscript5.dll / 259 / 44 < prev    next >
Encoding:
Text File  |  2002-09-09  |  4.4 KB  |  60 lines
  1. %%BeginResource: file Pscript_Win_Euro_L2 5.0 0
  2. /UseT3EuroFont{/currentdistillerparams where{pop currentdistillerparams
  3. /CoreDistVersion get 4000 le}{false}ifelse}bind def/NewEuroT3Font?{dup/FontType
  4. get 3 eq{dup/EuroFont known exch/BaseFont known and}{pop false}ifelse}bind def
  5. /T1FontHasEuro{dup/CharStrings known not{dup NewEuroT3Font?{dup/EuroGlyphName
  6. get exch/EuroFont get/CharStrings get exch known{true}{false}ifelse}{pop false}
  7. ifelse}{dup/FontType get 1 eq{/CharStrings get/Euro known}{dup/InfoDict known{
  8. /InfoDict get/Euro known}{/CharStrings get/Euro known}ifelse}ifelse}ifelse}bind
  9. def/FontHasEuro{findfont dup/Blend known{pop true}{T1FontHasEuro}ifelse}bind
  10. def/EuroEncodingIdx 1 def/EuroFontHdr{12 dict begin/FontInfo 10 dict dup begin
  11. /version(001.000)readonly def/Notice(Copyright (c)1999 Adobe Systems
  12. Incorporated. All Rights Reserved.)readonly def/FullName(Euro)readonly def
  13. /FamilyName(Euro)readonly def/Weight(Regular)readonly def/isFixedPitch false
  14. def/ItalicAngle 0 def/UnderlinePosition -100 def/UnderlineThickness 50 def end
  15. readonly def/FontName/Euro def/Encoding 256 array 0 1 255{1 index exch/.notdef
  16. put}for def/PaintType 0 def/FontType 1 def/FontMatrix[0.001 0 0 0.001 0 0]def
  17. /FontBBox{-25 -23 1500 804}readonly def currentdict end dup/Private 20 dict dup
  18. begin/ND{def}def/NP{put}def/lenIV -1 def/RD{string currentfile exch
  19. readhexstring pop}def/-|{string currentfile exch readstring pop}executeonly def
  20. /|-{def}executeonly def/|{put}executeonly def/BlueValues[-20 0 706 736 547 572]
  21. |-/OtherBlues[-211 -203]|-/BlueScale 0.0312917 def/MinFeature{16 16}|-/StdHW
  22. [60]|-/StdVW[71]|-/ForceBold false def/password 5839 def/Erode{8.5 dup 3 -1
  23. roll 0.1 mul exch 0.5 sub mul cvi sub dup mul 71 0 dtransform dup mul exch dup
  24. mul add le{pop pop 1.0 1.0}{pop pop 0.0 1.5}ifelse}def/OtherSubrs[{}{}{}
  25. {systemdict/internaldict known not{pop 3}{1183615869 systemdict/internaldict
  26. get exec dup/startlock known{/startlock get exec}{dup/strtlck known{/strtlck
  27. get exec}{pop 3}ifelse}ifelse}ifelse}executeonly]|-/Subrs 5 array dup 0
  28. <8E8B0C100C110C110C210B>put dup 1<8B8C0C100B>put dup 2<8B8D0C100B>put dup 3<0B>
  29. put dup 4<8E8C8E0C100C110A0B>put |- 2 index/CharStrings 256 dict dup begin
  30. /.notdef<8b8b0d0e>def end end put put dup/FontName get exch definefont pop}bind
  31. def/AddEuroGlyph{2 index exch EuroEncodingIdx 1 eq{EuroFontHdr}if systemdict
  32. begin/Euro findfont dup dup/Encoding get 5 1 roll/Private get begin/CharStrings
  33. get dup 3 index known{pop pop pop pop end end}{begin 1 index exch def end end
  34. end EuroEncodingIdx dup 1 add/EuroEncodingIdx exch def exch put}ifelse}bind def
  35. /GetNewXUID{currentdict/XUID known{[7 XUID aload pop]true}{currentdict/UniqueID
  36. known{[7 UniqueID]true}{false}ifelse}ifelse}bind def/BuildT3EuroFont{exch 16
  37. dict begin dup/FontName exch def findfont dup/Encoding get/Encoding exch def
  38. dup length 1 add dict copy dup/FID undef begin dup dup/FontName exch def
  39. /Encoding 256 array 0 1 255{1 index exch/.notdef put}for def GetNewXUID{/XUID
  40. exch def}if currentdict end definefont pop/BaseFont exch findfont 1000
  41. scalefont def/EuroFont exch findfont 1000 scalefont def pop/EuroGlyphName exch
  42. def/FontType 3 def/FontMatrix[.001 0 0 .001 0 0]def/FontBBox BaseFont/FontBBox
  43. get def/Char 1 string def/BuildChar{exch dup begin/Encoding get 1 index get
  44. /Euro eq{BaseFont T1FontHasEuro{false}{true}ifelse}{false}ifelse{EuroFont
  45. setfont pop userdict/Idx 0 put EuroFont/Encoding get{EuroGlyphName eq{exit}
  46. {userdict/Idx Idx 1 add put}ifelse}forall userdict/Idx get}{dup dup Encoding
  47. exch get BaseFont/Encoding get 3 1 roll put BaseFont setfont}ifelse Char 0 3 -1
  48. roll put Char stringwidth newpath 0 0 moveto Char true charpath flattenpath
  49. pathbbox setcachedevice 0 0 moveto Char show end}bind def currentdict end dup
  50. /FontName get exch definefont pop}bind def/AddEuroToT1Font{dup findfont dup
  51. length 10 add dict copy dup/FID undef begin/EuroFont 3 -1 roll findfont 1000
  52. scalefont def CharStrings dup length 1 add dict copy begin/Euro{EuroFont
  53. setfont pop EuroGBBox aload pop setcachedevice 0 0 moveto EuroGName glyphshow}
  54. bind def currentdict end/CharStrings exch def GetNewXUID{/XUID exch def}if 3 1
  55. roll/EuroGBBox exch def/EuroGName exch def currentdict end definefont pop}bind
  56. def/BuildNewFont{UseT3EuroFont{BuildT3EuroFont}{pop AddEuroToT1Font}ifelse}bind
  57. def/UseObliqueEuro{findfont/FontMatrix get dup 2 get 0 eq exch dup 0 get exch 3
  58. get eq and UseT3EuroFont or}bind def
  59. %%EndResource
  60.